home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / COPYSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  727 b   |  15 lines
  1. { ------------------------------------------
  2.   COPYSTR returns N concatenated copies of S
  3.   ------------------------------------------ }
  4. Function CopyStr ( S : AnyString;
  5.                    N : Integer ) : AnyString;
  6.  
  7. Begin
  8.    InLine ($1E/ $8B/$4E/$04/ $83/$F9/$00/ $7F/$09/
  9.            $C7/$86/$06/$01/$00/$00/ $EB/$46/$90/ $8A/$56/$06/ $30/$F6/
  10.            $51/ $8B/$C2/ $49/ $83/$F9/$00/ $74/$04/ $01/$D0/ $E2/$FC/
  11.            $8B/$CA/ $5A/ $3D/$FF/$00/ $76/$06/ $B8/$FF/$00/ $EB/$07/$90/
  12.            $3C/$00/ $73/$02/ $31/$C0/ $88/$86/$06/$01/ $3C/$00/ $74/$17/
  13.            $8C/$D3/ $8E/$C3/ $8E/$DB/ $8D/$BE/$07/$01/ $8D/$76/$07/ $FC/
  14.            $51/ $56/ $F3/$A4/ $5E/ $59/ $4A/ $75/$F7/ $1F );
  15. end { CopyStr };